home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / keymakr.exe / lha / ADDRKEYL.PAS < prev    next >
Pascal/Delphi Source File  |  1990-09-30  |  3KB  |  65 lines
  1. UNIT ADDRKEYL;
  2.  
  3. (****************************************************************)
  4. (*                    AddrKeyL By C. Franz                      *)
  5. (*     Copyright (c) 1988, By Carl Franz & JFL Consulting       *)
  6. (*                                                              *)
  7. (*                       KeyMaker V2.0                          *)
  8. (*                                                              *)
  9. (*  Purpose: This TPU contains the address BUZZ words I use     *)
  10. (*           when scanning the address lines.  They are made    *)
  11. (*           up of standard abreviations of common words found  *)
  12. (*           in addresses.                                      *)
  13. (*                                                              *)
  14. (*                                                              *)
  15. (****************************************************************)
  16.  
  17. INTERFACE
  18.  
  19. CONST
  20.  
  21. { The AddrTbl contains standard abreviations for common address BUZZ words.
  22.   These words are used by the AddrToKey routine to find the street name.
  23.   Also, I use them in order to not accidentially make a BUZZ word part of
  24.   the key (it can happen).  If you need to add or subtract words from this
  25.   table, go ahead.  Remember that UWMax must be maintained also to reflect
  26.   the current number of words.  Also, UWListTbl MUST be in alphabetical order
  27.   as I use a binary search to find them.
  28.  
  29.   While I feel this table is complete, a common reason for changing them is
  30.   to add foreign language or regionally peculiar address words.              }
  31.  
  32.     AddrTblMax  = 107; {the number of words the AddrTbl - this MUST be accurate }
  33.  
  34.     AddrTbl : Array [1..AddrTblMax] of String[8] =
  35.          ( 'ALLEY','ALY','ANX','APTS','ARC','AV','AVE','BCH',
  36.            'BLDG','BLVD','BYU','BOX','CIR',
  37.            'CLG','CMM','CMMS','CONDO','COR','COURT','CP','CRES',
  38.            'CT','CTL','CTR','CTS','CYN','DR','1/2','E',
  39.            'EST','EXPWY','EXPY','EXT','FWY','GDNS',
  40.            'GR','HBR','HL','HLS','HOLW','HOSP','HSE',
  41.            'HTS','HWY','JCT','LA','LK','LKS','LN','LNDG','LWR',
  42.            'MALL','MDL','MDWS','MNR','MTN','N','NAS','NE','NW','OF',
  43.            'ORCH','OVAL','PALMS','PARK','PASS','PATH','PK','PKWY',
  44.            'PL','PLZ','PO','PRT','PT','RD','RDWY','RR','RT','S','SCH','SE',
  45.            'SHR','SHRS','SPDWY','SPG','SPGS','SQ','ST','STA',
  46.            'SW','TER','TERR','TPKE','TR','TUNL','TWN','TWR','TWRS',
  47.            'US','VL','VLG','VLY','W','WAY','WTR','WY','XING');
  48.  
  49. { The AptLitTbl contains standard abreviations for common words which are
  50.   USUALLY followed by an apartment number (or letter).  The apartment number,
  51.   if found, is used in the AddrToKey to seporate addresses in the same
  52.   building.  You may add or remove words from this table as needed and then
  53.   recompile this module.  They MUST be in alphabetical order as I use a
  54.   binary search in searching all tables (although in this case it's probably
  55.   overkill).                                                                }
  56.  
  57.      ALMax = 8; {the number of words in the AptLitTbl - also MUST be accurate}
  58.  
  59.      AptLitTbl : Array [1..AlMax] of string[8] =
  60.         ( 'APT','SUITE','RM','ROOM','FLAT','UNIT','FLOOR','US');
  61.  
  62. IMPLEMENTATION
  63.  
  64. END.
  65.